home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A)[a].po / SLIDE.BIN.S < prev    next >
Text File  |  1996-12-24  |  1KB  |  57 lines
  1. *-----------------------------------*
  2. *  GS.GRAPHICS GALLERY SLIDE SHOW   *
  3. *      MISCELLANEOUS ROUTINES       *
  4. *             *
  5. *         by Peter Stubbs           *
  6. *-----------------------------------*
  7. *       MERLIN 816 ASSEMBLER        *
  8. *-----------------------------------*
  9. *         Copyright (C) 1991        *
  10. *        MindCraft Publ. Corp.      *
  11. *-----------------------------------*
  12.  
  13.  
  14. MOVE      = $13B0        ;Load address for PIC.MOVE
  15. SAVE      = $EB
  16.  
  17. * STORE A ZERO AT $1400 AND USE MONITOR MOVE
  18. * ROUTINE TO STORE ZEROS AT $1400-$9400
  19.  
  20.           ORG $1370
  21.  
  22. BLANK     LDY #$94
  23.           STY $3F
  24.           LDY #$14
  25.           STY $3D
  26.           STY $43
  27.           LDY #1
  28.           STY $42
  29.           DEY
  30.           STY $1400
  31.           STY $3C
  32.           STY $3E
  33.           JSR $FE2C      ;Do monitor move
  34.           JSR MOVE       ;Move to Super Res screen
  35.           RTS            ; for an all black picture
  36.  
  37. * Display super res screen with black border
  38.  
  39. YES       LDA $C029
  40.           STA SAVE
  41.           ORA #$C0       ;Super res and linear on
  42.           STA $C029
  43.           LDA $C034
  44.           STA SAVE+1
  45.           AND #$F0       ;Make a black border
  46.           STA $C034
  47.           RTS
  48.  
  49. * Return to original screen display state
  50.  
  51. NO        LDA SAVE
  52.           STA $C029
  53.           LDA SAVE+1
  54.           STA $C034
  55.           RTS
  56.           LST OFF
  57.